home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / COPIES.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  424b  |  16 lines
  1. { -------------------------------
  2.   COPIES characters into a string
  3.   ------------------------------- }
  4. Function COPIES (C : Char;
  5.                  N : Integer ): AnyString;
  6.                 { AnyString is Type string[255] }
  7. begin
  8.    Inline ( $16/
  9.             $07/
  10.             $8B/$4E/$04/
  11.             $88/$4E/$08/
  12.             $8B/$46/$06/
  13.             $8D/$7E/$09/
  14.             $FC/
  15.             $F3/$AA );
  16. end;